home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / util / gnu / GNU_OLEO_1_2_2.lha / oleo-1.2.2 / print.c < prev    next >
C/C++ Source or Header  |  1993-03-03  |  15KB  |  395 lines
  1. /*    Copyright (C) 1992, 1993 Free Software Foundation, Inc.
  2.  
  3. This program is free software; you can redistribute it and/or modify
  4. it under the terms of the GNU General Public License as published by
  5. the Free Software Foundation; either version 2, or (at your option)
  6. any later version.
  7.  
  8. This program is distributed in the hope that it will be useful,
  9. but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11. GNU General Public License for more details.
  12.  
  13. You should have received a copy of the GNU General Public License
  14. along with this software; see the file COPYING.  If not, write to
  15. the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  16.  
  17. #include "display.h"
  18. #include <stdio.h>
  19. #include "font.h"
  20. #include "global.h"
  21.  
  22. static void 
  23. put_eps_header (dpy, scale, wid, hgt, fp)
  24.      struct display *dpy;
  25.      float scale, wid, hgt;
  26.      FILE *fp;
  27. {
  28.   int dpy_wid = display_width (dpy);
  29.   int dpy_hgt = display_height (dpy);
  30.   struct font_memo *fm;
  31.   fputs ("%!PS-Adobe-2.0 EPSF-2.0\n", fp);
  32.   fprintf (fp, "%%%%BoundingBox: %d %d %d %d\n",
  33.        0, 0,
  34.        (int) ((float) dpy_wid * scale),
  35.        (int) ((float) (dpy_hgt + 1) * scale));
  36.   fputs ("%%Creator: oleo\n", fp);
  37.   fputs ("%%DocumentFonts: Times-Roman", fp);
  38.   for (fm = font_list; fm; fm = fm->next)
  39.     fprintf (fp, " %s", fm->psname);
  40.   fputc ('\n', fp);
  41.   {
  42.     time_t the_record_of_the_time = time (0);
  43.     fprintf (fp, "%%%%CreationDate: %s\n", ctime (&the_record_of_the_time));
  44.   }
  45.   fputs ("%%EndComments\n", fp);
  46. }
  47.  
  48. void 
  49. put_ps_string (str, fp)
  50.      char *str;
  51.      FILE *fp;
  52. {
  53.   fputc ('(', fp);
  54.   while (*str)
  55.     {
  56.       if (*str == ')')
  57.     fputs ("\\)", fp);
  58.       else if (*str == '(')
  59.     fputs ("\\(", fp);
  60.       else
  61.     fputc (*str, fp);
  62.       ++str;
  63.     }
  64.   fputc (')', fp);
  65. }
  66.  
  67. #ifdef __STDC__
  68. void 
  69. psprint_region (FILE * fp, struct rng * rng, float wid, float hgt, char * font)
  70. #else
  71. void 
  72. psprint_region (fp, rng, wid, hgt, font)
  73.      FILE *fp;
  74.      struct rng *rng;
  75.      float wid, hgt;
  76.      char * font;
  77. #endif
  78. {
  79.   struct display dpy;
  80.   int rows = rng->hr - rng->lr + 1;
  81.   int cols = rng->hc - rng->lc + 1;
  82.   int dpy_wid;
  83.   int dpy_hgt;
  84.   float scale;
  85.  
  86.   build_unscaled_display (&dpy, rng, 0, 0);
  87.   dpy_wid = display_width (&dpy);
  88.   dpy_hgt = display_height (&dpy);
  89.   scale = wid / (float) dpy_wid;
  90.   if (scale * dpy_hgt > hgt)
  91.     scale = hgt / (float) dpy_hgt;
  92.  
  93.   put_eps_header (&dpy, scale, wid, hgt, fp);
  94.   fprintf (fp, "/min { 2 copy lt { pop } if } def\n");
  95.   fprintf (fp, "/max { 2 copy lt { exch pop } if } def\n");
  96.   fprintf (fp, "/fed { exch def } def\n");
  97.   fprintf (fp, "/gget { cvi get } def\n");
  98.   fprintf (fp, "%% Some basic facts about the region being printed. \n");
  99.   fprintf (fp, "/CharsWide %d def\n", dpy_wid);
  100.   fprintf (fp, "/CharsTall %d def\n", dpy_hgt);
  101.   fprintf (fp, "/Cols       %d def\n", cols);
  102.   fprintf (fp, "/Rows      %d def\n", rows);
  103.   fprintf (fp, "%% The scale is just the point size of the default font. \n");
  104.   fprintf (fp, "%% The value here is just an initial approximation.  The real value\n");
  105.   fprintf (fp, "%% is computed below.\n");
  106.   fprintf (fp, "/Scale     %f def\n", scale);
  107.   fprintf (fp, "/PointsWide CharsWide Scale mul def\n");
  108.   fprintf (fp, "/PointsTall CharsTall Scale mul def\n");
  109.   fprintf (fp, "\n");
  110.   fprintf (fp, "%% font setup\n");
  111.   fprintf (fp, "/pair-sub \n");
  112.   fprintf (fp, "{\n");
  113.   fprintf (fp, "  3 -1 roll exch sub 3 1 roll sub exch\n");
  114.   fprintf (fp, "} def\n");
  115.   fprintf (fp, "/font-box\n");
  116.   fprintf (fp, "{\n");
  117.   fprintf (fp, "  dup /FontBBox get /font-box-box fed\n");
  118.   fprintf (fp, "  /FontMatrix get /font-box-matrix fed\n");
  119.   fprintf (fp, "  font-box-box font-box-matrix transform\n");
  120.   fprintf (fp, "  4 2 roll font-box-matrix transform\n");
  121.   fprintf (fp, "  pair-sub  \n");
  122.   fprintf (fp, "} def\n");
  123.   fprintf (fp, "/DefaultFontName /%s def\n", default_font()->psname);
  124.   fprintf (fp, "/BasicDefaultFont DefaultFontName findfont def\n");
  125.   fprintf (fp, "/DefaultFontSize Scale round def\n");
  126.   fprintf (fp, "/SizeDir 1 def\n");
  127.   fprintf (fp, "{ \n");
  128.   fprintf (fp, "  DefaultFontSize 4 le { exit } if\n");
  129.   fprintf (fp, "  /DefaultFont BasicDefaultFont DefaultFontSize scalefont def\n");
  130.   fprintf (fp, "  DefaultFont setfont \n");
  131.   fprintf (fp, "  DefaultFont font-box\n");
  132.   fprintf (fp, "  Scale le exch Scale le and not\n");
  133.   fprintf (fp, "  { /SizeDir -1 def } { SizeDir 0 le { exit } if } ifelse\n");
  134.   fprintf (fp, "  /DefaultFontSize DefaultFontSize SizeDir add def\n");
  135.   fprintf (fp, "} loop\n");
  136.   fprintf (fp, "/DefaultFontSize DefaultFontSize def\n");
  137.   fprintf (fp, "/DefaultFont BasicDefaultFont DefaultFontSize scalefont def\n");
  138.   fprintf (fp, "/Scale DefaultFontSize def\n");
  139.   fprintf (fp, "\n");
  140.   fprintf (fp, "DefaultFont font-box\n");
  141.   fprintf (fp, "/Scaleh fed\n");
  142.   fprintf (fp, "/Scalew fed\n");
  143.   fprintf (fp, "\n");
  144.   fprintf (fp, "/CellsUsed Rows Cols mul array def\n");
  145.   fprintf (fp, "0 1 Rows Cols mul 1 sub { CellsUsed exch false put } for\n");
  146.   fprintf (fp, "\n");
  147.   fprintf (fp, "/checkused   %% r c -- bool\n");
  148.   fprintf (fp, "{\n");
  149.   fprintf (fp, "  exch Cols mul add CellsUsed exch gget\n");
  150.   fprintf (fp, "} def\n");
  151.   fprintf (fp, "\n");
  152.   fprintf (fp, "/setused   %% r c -- \n");
  153.   fprintf (fp, "{\n");
  154.   fprintf (fp, "  exch Cols mul add CellsUsed exch true put\n");
  155.   fprintf (fp, "} def\n");
  156.   fprintf (fp, "\n");
  157.   {
  158.     int ri, ci;
  159.     for (ri = 0; ri < rows; ++ri)
  160.       for (ci = 0; ci < cols; ++ci)
  161.     {
  162.       struct cell_display * cd = dpy.cells + ri * cols + ci;
  163.       if (cd->unclipped)
  164.         fprintf (fp, "%d %d setused\n", ri, ci);
  165.     }
  166.     fprintf (fp, "/Rowy [ ");
  167.     for (ri = 0; ri < rows; ++ri)
  168.       fprintf (fp, "%d ", dpy.rowy[ri]);
  169.     fprintf (fp, "] def\n/Colx [ ");
  170.     for (ci = 0; ci < cols; ++ci)
  171.       fprintf (fp, "%d ", dpy.colx[ci]);
  172.     fprintf (fp, "] def\n");
  173.     fprintf (fp, "/Heights [ ");
  174.     for (ri = 0; ri < rows; ++ri)
  175.       fprintf (fp, "%d ", dpy.heights[ri]);
  176.     fprintf (fp, "] def\n/Widths [ ");
  177.     for (ci = 0; ci < cols; ++ci)
  178.       fprintf (fp, "%d ", dpy.widths[ci]);
  179.     fprintf (fp, "] def\n");
  180.   }
  181.   fprintf (fp, "\n");
  182.   fprintf (fp, "/to-oleo-matrix\n");
  183.   fprintf (fp, "    0 PointsTall neg matrix translate \n");
  184.   fprintf (fp, "    1 Scalew div 1 Scaleh div neg matrix scale\n");
  185.   fprintf (fp, " matrix concatmatrix def\n");
  186.   fprintf (fp, "\n");
  187.   fprintf (fp, "/from-oleo-matrix to-oleo-matrix matrix invertmatrix def\n");
  188.   fprintf (fp, "\n");
  189.   fprintf (fp, "/rc-to-oleo-xy { Colx exch gget exch Rowy exch gget } def\n");
  190.   fprintf (fp, "/rc-to-oleo-wh { Widths exch gget exch Heights exch gget } def\n");
  191.   fprintf (fp, "/oleo-xy-to-ps { from-oleo-matrix transform } def\n");
  192.   fprintf (fp, "/rc-to-xy { rc-to-oleo-xy oleo-xy-to-ps } def\n");
  193.   fprintf (fp, "/rc-to-wh { rc-to-oleo-wh Scaleh mul exch Scalew mul exch } def\n");
  194.   fprintf (fp, "/oleo-box-to-ps\n");
  195.   fprintf (fp, "{ \n");
  196.   fprintf (fp, "  dup dup 0 gget exch 1 gget oleo-xy-to-ps\n");
  197.   fprintf (fp, "  3 -1 roll dup dup 2 gget exch 3 gget oleo-xy-to-ps\n");
  198.   fprintf (fp, "  3 -1 roll astore\n");
  199.   fprintf (fp, "} def\n");
  200.   fprintf (fp, "\n");
  201.   fprintf (fp, "\n");
  202.   fprintf (fp, "/cell-goal   %% string just r c -- [x y x' y']\n");
  203.   fprintf (fp, "{\n");
  204.   fprintf (fp, "  3 index stringwidth pop /cell-goal-w exch def\n");
  205.   fprintf (fp, "  /cell-goal-h DefaultFontSize 2 add def\n");
  206.   fprintf (fp, "  2 copy rc-to-xy   %% str j r c xcel ycel\n");
  207.   fprintf (fp, "  5 -1 roll dup 0 lt \n");
  208.   fprintf (fp, "  { pop }  %% str r c xstr ycel\n");
  209.   fprintf (fp, "  { 0 eq         %% str r c xcel ycel bool\n");
  210.   fprintf (fp, "    Widths 4 index gget Scalew mul exch  %% str r c xcel ycel wcell bool\n");
  211.   fprintf (fp, "    { cell-goal-w sub 2 div 3 -1 roll add exch }\n");
  212.   fprintf (fp, "    { 2 index add cell-goal-w sub 3 -1 roll pop exch } ifelse \n");
  213.   fprintf (fp, "    %% str r c xstr ycel \n");
  214.   fprintf (fp, " } ifelse      \n");
  215.   fprintf (fp, " %% str r c xstr ycel \n");
  216.   fprintf (fp, " 5 -3 roll pop pop pop\n");
  217.   fprintf (fp, " 2 copy  cell-goal-h add exch cell-goal-w add exch\n");
  218.   fprintf (fp, " 4 array astore  \n");
  219.   fprintf (fp, "} def\n");
  220.   fprintf (fp, "\n");
  221.   fprintf (fp, "/layout        %%  [x y x' y'] r c -- [rlo clo rhi chi]\n");
  222.   fprintf (fp, "{\n");
  223.   fprintf (fp, "  2 copy \n");
  224.   fprintf (fp, "  /layout_c fed\n");
  225.   fprintf (fp, "  /layout_r fed\n");
  226.   fprintf (fp, "  exch 2 copy 4 array astore     %% [x y x' y'] [c r c r]\n");
  227.   fprintf (fp, "  /layout_answer fed\n");
  228.   fprintf (fp, "  /layout_goal fed\n");
  229.   fprintf (fp, "\n");
  230.   fprintf (fp, "  layout_answer 0 gget    \n");
  231.   fprintf (fp, "  {\n");
  232.   fprintf (fp, "    dup 0 eq { exit } if\n");
  233.   fprintf (fp, "    dup Colx exch gget Scalew mul layout_goal 0 gget le { exit } if\n");
  234.   fprintf (fp, "    1 sub\n");
  235.   fprintf (fp, "  } loop\n");
  236.   fprintf (fp, "  layout_answer exch 0 exch put\n");
  237.   fprintf (fp, "\n");
  238.   fprintf (fp, "  layout_answer 1 gget    \n");
  239.   fprintf (fp, "  {\n");
  240.   fprintf (fp, "    dup 0 eq { exit } if\n");
  241.   fprintf (fp, "    dup Rowy exch gget Scaleh mul layout_goal 1 gget le { exit } if\n");
  242.   fprintf (fp, "    1 sub\n");
  243.   fprintf (fp, "  } loop\n");
  244.   fprintf (fp, "  layout_answer exch 3 exch put\n");
  245.   fprintf (fp, "\n");
  246.   fprintf (fp, "  layout_answer 2 gget    \n");
  247.   fprintf (fp, "  {\n");
  248.   fprintf (fp, "    dup Cols 1 sub eq { exit } if\n");
  249.   fprintf (fp, "    dup dup Colx exch gget exch Widths exch gget add Scalew mul\n");
  250.   fprintf (fp, "    layout_goal 2 gget gt { exit } if\n");
  251.   fprintf (fp, "    1 add \n");
  252.   fprintf (fp, "  } loop\n");
  253.   fprintf (fp, "  layout_answer exch 2 exch put\n");
  254.   fprintf (fp, "\n");
  255.   fprintf (fp, "  layout_answer dup 0 gget exch 1 gget \n");
  256.   fprintf (fp, "  layout_answer exch 0 exch put layout_answer exch 1 exch put\n");
  257.   fprintf (fp, "  layout_answer dup 2 gget exch 3 gget \n");
  258.   fprintf (fp, "  layout_answer exch 2 exch put layout_answer exch 3 exch put\n");
  259.   fprintf (fp, "  layout_answer 1 gget 1 layout_answer 3 gget\n");
  260.   fprintf (fp, "  {\n");
  261.   fprintf (fp, "    /layout_ct fed\n");
  262.   fprintf (fp, "    layout_r 1 layout_answer 2 gget \n");
  263.   fprintf (fp, "     {\n");
  264.   fprintf (fp, "       /layout_rt fed\n");
  265.   fprintf (fp, "       layout_rt layout_ct checkused \n");
  266.   fprintf (fp, "    {\n");
  267.   fprintf (fp, "      layout_ct layout_c lt\n");
  268.   fprintf (fp, "        { layout_ct 1 add layout_answer 1 gget max layout_answer exch 1 exch put }\n");
  269.   fprintf (fp, "        if\n");
  270.   fprintf (fp, "      layout_ct layout_c gt\n");
  271.   fprintf (fp, "        { layout_ct 1 sub layout_answer 3 gget min layout_answer exch 3 exch put }\n");
  272.   fprintf (fp, "        if\n");
  273.   fprintf (fp, "      layout_rt layout_r lt\n");
  274.   fprintf (fp, "        { layout_rt 1 add layout_answer 0 gget max layout_answer exch 0 exch put }\n");
  275.   fprintf (fp, "        if\n");
  276.   fprintf (fp, "    } if\n");
  277.   fprintf (fp, "     } for\n");
  278.   fprintf (fp, "  } for\n");
  279.   fprintf (fp, "\n");
  280.   fprintf (fp, "  layout_answer 0 gget 1 layout_answer 2 gget \n");
  281.   fprintf (fp, "  {\n");
  282.   fprintf (fp, "    /layout_rt fed\n");
  283.   fprintf (fp, "    layout_answer 1 gget 1 layout_answer 3 gget\n");
  284.   fprintf (fp, "    {\n");
  285.   fprintf (fp, "      layout_rt exch setused\n");
  286.   fprintf (fp, "    } for \n");
  287.   fprintf (fp, "  } for\n");
  288.   fprintf (fp, "\n");
  289.   fprintf (fp, "  layout_answer\n");
  290.   fprintf (fp, "} def\n");
  291.   fprintf (fp, "\n");
  292.   fprintf (fp, "\n");
  293.   fprintf (fp, "/add-pair\n");
  294.   fprintf (fp, "{\n");
  295.   fprintf (fp, "  3 -1 roll add 3 1 roll add exch\n");
  296.   fprintf (fp, "} def\n");
  297.   fprintf (fp, "\n");
  298.   fprintf (fp, "/layout-to-oleo-box\n");
  299.   fprintf (fp, "{\n");
  300.   fprintf (fp, "  dup dup 0 gget exch 1 gget rc-to-oleo-xy 3 -1 roll\n");
  301.   fprintf (fp, "  dup 0 gget exch 1 gget \n");
  302.   fprintf (fp, "  2 copy rc-to-oleo-xy 4 2 roll\n");
  303.   fprintf (fp, "  rc-to-oleo-wh add-pair\n");
  304.   fprintf (fp, "  4 array astore\n");
  305.   fprintf (fp, "} def\n");
  306.   fprintf (fp, "\n");
  307.   fprintf (fp, "/layout-to-bbox\n");
  308.   fprintf (fp, "{\n");
  309.   fprintf (fp, "  layout-to-oleo-box oleo-box-to-ps\n");
  310.   fprintf (fp, "} def\n");
  311.   fprintf (fp, "\n");
  312.   fprintf (fp, "/boxpath\n");
  313.   fprintf (fp, "{\n");
  314.   fprintf (fp, "  newpath\n");
  315.   fprintf (fp, "  dup dup 0 gget exch 1 gget moveto\n");
  316.   fprintf (fp, "  dup dup 0 gget exch 3 gget lineto\n");
  317.   fprintf (fp, "  dup dup 2 gget exch 3 gget lineto\n");
  318.   fprintf (fp, "  dup 2 gget exch 1 gget lineto\n");
  319.   fprintf (fp, "  closepath\n");
  320.   fprintf (fp, "} def\n");
  321.   fprintf (fp, "\n");
  322.   fprintf (fp, "/use-font\n");
  323.   fprintf (fp, "{\n");
  324.   fprintf (fp, "  /CellFont fed\n");
  325.   fprintf (fp, "  CellFont setfont\n");
  326.   fprintf (fp, "  CellFont /FontBBox get\n");
  327.   fprintf (fp, "   dup dup 0 gget exch 1 gget CellFont /FontMatrix get transform\n");
  328.   fprintf (fp, "  neg /CellFontDescent fed\n");
  329.   fprintf (fp, "  neg /CellFontLbearing fed\n");
  330.   fprintf (fp, "   3 gget 0 exch CellFont /FontMatrix get transform exch pop\n");
  331.   fprintf (fp, "  /CellFontAscent fed\n");
  332.   fprintf (fp, "} def\n");
  333.   fprintf (fp, "DefaultFont use-font\n");
  334.   fprintf (fp, "\n");
  335.   fprintf (fp, "/cell %% str just r c\n");
  336.   fprintf (fp, "{\n");
  337.   fprintf (fp, "  /cell-c fed\n");
  338.   fprintf (fp, "  /cell-r fed\n");
  339.   fprintf (fp, "  /cell-j fed\n");
  340.   fprintf (fp, "  /cell-s fed\n");
  341.   fprintf (fp, "  \n");
  342.   fprintf (fp, "  /cell-g cell-s cell-j cell-r cell-c cell-goal def\n");
  343.   fprintf (fp, "  /cell-l cell-g cell-r cell-c layout layout-to-bbox def\n");
  344.   fprintf (fp, "\n");
  345.   fprintf (fp, "  cell-g 0 get cell-g 1 get moveto\n");
  346.   fprintf (fp, "  CellFontLbearing\n");
  347.   fprintf (fp, "  CellFontAscent neg rmoveto\n");
  348.   fprintf (fp, "  cell-s show\n");
  349.   fprintf (fp, "} def\n");
  350.   fprintf (fp, "\n");
  351.   {
  352.     int ri, ci;
  353.     struct font_memo * last_font = default_font ();
  354.     for (ri = 0; ri < rows; ++ri)
  355.       for (ci = 0; ci < cols; ++ci)
  356.     {
  357.       struct cell_display * cd = dpy.cells + ri * cols + ci;
  358.       if (cd->unclipped)
  359.         {
  360.           fprintf (fp, "/S ");
  361.           put_ps_string (cd->unclipped, fp);
  362.           fprintf (fp, " def \nS ");
  363.           switch (cd->justification)
  364.         {
  365.         default:
  366.         case JST_LFT:
  367.           fprintf (fp, " -1 ");
  368.           break;
  369.         case JST_CNT:
  370.           fprintf (fp, " 0 ");
  371.           break;
  372.         case JST_RGT:
  373.           fprintf (fp, " 1 ");
  374.           break;
  375.         };
  376.  
  377.           {
  378.         struct font_memo * font = cd->font;
  379.         if (!font)
  380.           font = default_font ();
  381.         if (font != last_font)
  382.           {
  383.             fprintf (fp, "/%s findfont %f DefaultFontSize mul",
  384.                  font->psname, font->scale);
  385.             fprintf (fp, " scalefont use-font\n");
  386.             last_font = font;
  387.           }
  388.         fprintf (fp, "%d %d cell\n", ri, ci);
  389.           }
  390.         }
  391.     }
  392.   }
  393.   free_display (&dpy);
  394. }
  395.